(Fdocumentation_property): Gcpro `tem'.

diff --git a/src/doc.c b/src/doc.c
index dc52e713da4619ac6b036546d7087e10bbeafb44..02d0b5869b540c6ca77091f0112973891f537296 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -400,7 +400,13 @@ translation.")
   else if (CONSP (tem))
     tem = get_doc_string (tem, 0, 0);
   if (NILP (raw) && STRINGP (tem))
-    return Fsubstitute_command_keys (tem);
+    {
+      struct gcpro gcpro1;
+
+      GCPRO1 (tem);
+      return Fsubstitute_command_keys (tem);
+      UNGCPRO;
+    }
   return tem;
 }
 \f